home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Sound / AudioEvolution / InstallAudioEvolution < prev    next >
Text File  |  2001-05-04  |  6KB  |  187 lines
  1. (complete 0)
  2. (set @default-dest "Work:")
  3.  
  4. (message (cat "\n\nWelcome to the Audio Evolution installation utility!\n\n\n"
  5.               "Note that Audio Evolution requires AHI V4 or higher.\n\n")
  6. )
  7. (welcome)
  8.  
  9.  
  10. (set dest_dir
  11.    (askdir (prompt "Where would you like Audio Evolution to be installed?\n"
  12.                     "A new drawer will be created there.")
  13.            (help @askdir-help)
  14.            (default @default-dest)
  15.            (newpath))
  16. )
  17.  
  18. (set @default-dest (tackon dest_dir "AudioEvolution"))
  19. (makedir @default-dest)
  20. (makedir (tackon @default-dest "samples"))
  21. (makedir (tackon @default-dest "filters"))
  22. (makedir (tackon @default-dest "projects"))
  23. (makedir (tackon @default-dest "eventlists"))
  24. (makedir (tackon @default-dest "PlugIns"))
  25. (makedir (tackon @default-dest "Modules"))
  26.  
  27.  
  28. (set processor 0)
  29. (if (= (run "c:cpu check 68881") 0) (set processor 1))
  30. (if (= (run "c:cpu check 68040") 0) (set processor 1))
  31. (set processor
  32.      (askchoice (prompt "Select your processor")
  33.                 (help (cat "Select the kind of processor you have in your machine:\n\n"
  34.                       "68020: Select this if you have an '020 or '030 without FPU\n\n"
  35.                       "68020 + FPU: Select this if you have an '020 or '030 with FPU or an 68040 (not 68EC040!)\n\n"
  36.                       "68060: Select this if you have an 68060"
  37.                       )
  38.                 )
  39.                 (choices "68020" "68020 + FPU" "68060")
  40.                 (default processor)
  41.      )
  42. )
  43.  
  44. (if (= processor 0) ((set SourceName "AudioEvolution.020") (set SourceNameInfo "AudioEvolution.020.info")) )
  45. (if (= processor 1) ((set SourceName "AudioEvolution.020fpu") (set SourceNameInfo "AudioEvolution.020fpu.info")) )
  46. (if (= processor 2) ((set SourceName "AudioEvolution.060") (set SourceNameInfo "AudioEvolution.060.info")) )
  47.  
  48. (copyfiles (prompt ("Copying Audio Evolution to %s.\n" @default-dest))
  49.                               (source SourceName)
  50.                               (dest @default-dest)
  51.                               (confirm)
  52.                               (infos)
  53.                               (help "\nThis will copy the main Audio Evolution file.")
  54. )
  55.  
  56. (rename (tackon @default-dest SourceName) (tackon @default-dest "AudioEvolution") )
  57. (rename (tackon @default-dest SourceNameInfo) (tackon @default-dest "AudioEvolution.info") )
  58.  
  59.  
  60. (complete 60)
  61.  
  62. (copyfiles (prompt ("Copying AudioEvolution.guide to %s.\n" @default-dest))
  63.                               (source "AudioEvolution.guide")
  64.                               (dest @default-dest)
  65.                               (confirm)
  66.                               (infos)
  67.                               (help "\nThis will copy the Audio Evolution documentation.")
  68. )
  69.  
  70.  
  71. (copyfiles (prompt ("Copying VersionInfo to %s.\n" @default-dest))
  72.                               (source "VersionInfo")
  73.                               (dest @default-dest)
  74.                               (confirm)
  75.                               (infos)
  76.                               (help "\nThis will copy the version-info file.")
  77. )
  78.  
  79. (complete 65)
  80.  
  81. (set InstallPTool 0)
  82. (set InstallPTool
  83.      (askchoice (prompt "Do you wish to install the Bars&Pipes synchronisation tool?")
  84.                 (help (cat "The Bars&Pipes synchronisation tool is a 'ptool' to \n"
  85.                       "synchronize the start of Audio Evolution with B&P."
  86.                       )
  87.                 )
  88.                 (choices "Yes" "No")
  89.                 (default InstallPTool)
  90.      )
  91. )
  92.  
  93. (if (= InstallPTool 0)
  94.  (
  95.    (set bpdir
  96.       (askdir (prompt "Where would you like the B&P tool to be installed?\n")
  97.             (default "Work:")
  98.             (help "\nChoose the Bars&Pipes/Tools directory\n")
  99.             (disk)
  100.       )
  101.    )
  102.  
  103.    (copyfiles (prompt ("Copying AudioEvolutionTool.ptool to %s.\n" bpdir) )
  104.                               (source "AudioEvolutionTool.ptool")
  105.                               (dest bpdir)
  106.                               (confirm)
  107.                               (help "\nThis will copy the B&P-ptool file.")
  108.    )
  109.  )
  110. )
  111.  
  112.  
  113.  
  114.  
  115. (complete 70)
  116.  
  117. (copyfiles (prompt ("Copying filters to %s.\n" (tackon @default-dest "filters") ))
  118.                               (source "filters")
  119.                               (dest (tackon @default-dest "filters"))
  120.                               (all)
  121.                               (help "\nThis will copy some example FIR-filter files.")
  122. )
  123.  
  124.  
  125. (complete 80)
  126.  
  127. (copyfiles (prompt ("Copying plug-ins to %s.\n" (tackon @default-dest "PlugIns") ))
  128.                               (source "PlugIns")
  129.                               (dest (tackon @default-dest "PlugIns"))
  130.                               (all)
  131.                               (help "\nThis will copy some realtime PPC effects.")
  132. )
  133.  
  134.  
  135. (complete 85)
  136.  
  137. (copyfiles (prompt ("Copying add-on modules to %s.\n" (tackon @default-dest "Modules") ))
  138.                               (source "Modules")
  139.                               (dest (tackon @default-dest "Modules"))
  140.                               (all)
  141.                               (help "\nThis will copy some PPC add-on modules.")
  142. )
  143.  
  144.  
  145. (complete 90)
  146.  
  147. (copyfiles (prompt "Audio Evolution needs some fonts in the FONTS: directory.\n")
  148.            (source "fonts/")
  149.            (dest "FONTS:")
  150.            (all)
  151.            (confirm)
  152.            (help "\nThis will copy the Trinomic and AudioEvolutionDigital fonts.")
  153. )
  154.  
  155.  
  156. (set vernumInstalled (getversion "libs:popupmenu.library"))
  157. (set ver (/ vernumInstalled 65536))
  158. (set rev (- vernumInstalled (* ver 65536) ) )
  159.  
  160. (set vernumToInstall (getversion "libs/popupmenu.library"))
  161. (set ver2 (/ vernumToInstall 65536))
  162. (set rev2 (- vernumToInstall (* ver2 65536) ) )
  163.  
  164.  
  165. (if (< vernumInstalled vernumToInstall)
  166.  
  167.    (copyfiles (prompt ( cat ("Popupmenu.library:\n")
  168.                             ("\nVersion to install : %ld.%ld\n" ver2 rev2)
  169.                             ("Version found : %ld.%ld" ver rev) 
  170.                       ))
  171.                       (source "libs/popupmenu.library")
  172.                       (dest "libs:")
  173.                       (confirm)
  174.                       (help "\nThe popupmenu library is required to run Audio Evolution!")
  175.    )
  176. )
  177.  
  178.  
  179. (complete 100)
  180.  
  181. (set installed "YES")         
  182.  
  183. (if (= installed "YES") 
  184.    (exit ("\n\nThank you for installing Audio Evolution!"))
  185.    (exit)
  186. )   
  187.